home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / amiga.free / sorgenti vari / wolfedit2 2.0.4 source.sit / WolfEdit2 2.0.4 Source / UScreen.p < prev    next >
Text File  |  1994-12-08  |  222b  |  15 lines
  1. unit UScreen;
  2.  
  3. interface
  4.  
  5.     function IsSmallScreen: boolean;
  6.  
  7. implementation
  8.  
  9.     function IsSmallScreen: boolean;
  10.     begin
  11.         with screenBits.bounds do
  12.             IsSmallScreen := (right - left < 640) | (bottom - top < 480);
  13.     end;
  14.  
  15. end.